BMUG PD-ROM A/PD-ROM A.iso/HyperCard/Education/Weights & Measures/card_2905.txt

Text File | 1991-10-27 | 11.8 KB | 555 lines

-- card: 2905 from stack: in
-- bmap block id: 9236
-- flags: 4000
-- background id: 2785
-- name:
----- HyperTalk script -----
on opencard
  hide card field 1
  hide card field 3
  hide card field 4
end opencard


-- part 13 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=3 top=156 right=193 bottom=157
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Gages
----- HyperTalk script -----
on mouseUp
  go card ID 7936
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=3 top=76 right=113 bottom=157
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lengths
----- HyperTalk script -----
on mouseUp
  go card ID 3233
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=3 top=116 right=153 bottom=157
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Thicknesses
----- HyperTalk script -----
on mouseUp
  go card id 4940
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=2 top=196 right=233 bottom=156
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Areas
----- HyperTalk script -----
on mouseUp
  go card ID 3893
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=3 top=235 right=272 bottom=157
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Volumes
----- HyperTalk script -----
on mouseUp
  go card id 4511
end mouseup



-- part 18 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=174 top=76 right=113 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Velocity
----- HyperTalk script -----
on mouseUp
  go card id 3708
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=174 top=116 right=153 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Force & Mass
----- HyperTalk script -----
on mouseUp
  go card 7
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=174 top=157 right=194 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Density
----- HyperTalk script -----
on mouseUp
  go card id 7196
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=174 top=197 right=234 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pressure
----- HyperTalk script -----
on mouseUp
  go card id 7519
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=173 top=239 right=276 bottom=327
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Temperature
----- HyperTalk script -----
on mouseUp
  go card id 9620
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=345 top=116 right=153 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Power
----- HyperTalk script -----
on mouseUp
  go card id 9134
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=345 top=197 right=234 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Thermal Coductivity
----- HyperTalk script -----
on mouseUp
  go card id 9851
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=462 top=24 right=69 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  ask "Enter whole phrase or unit."
  put it into ent
  if ent is empty then exit mouseup
  put ","&ent&"," into phr
  repeat with y = 2 to the number of cards
    find phr in background field 1
    if true then
      put the foundline into fndline
      put second word of fndline into fnd
      exit repeat
    end if
    go next card
  end repeat
  if fnd is not empty then
    set hilite of card button fnd to true
    wait 80
    set hilite of card button fnd to false
  else
    put "("&ent&") not found" into msg box
    wait 80
    hide msg box
  end if
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=346 top=237 right=274 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Miscellaneous
----- HyperTalk script -----
on mouseUp
  go card id 2074
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=344 top=75 right=112 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Moment/Torque
----- HyperTalk script -----
on mouseUp
  go card id 10371
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=345 top=157 right=194 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Work & Energy
----- HyperTalk script -----
on mouseUp
  go card id 8634
end mouseUp



-- part 35 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=454 top=290 right=338 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  if visible of card field 1 then hide card field 1
  else show card field 1
end mouseUp



-- part 36 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=176 top=142 right=279 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field 1
end mouseup


-- part 38 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=2 top=326 right=340 bottom=219
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: ©
----- HyperTalk script -----
© 1990 by John Dabbas. All rights reserved.


-- part 39 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=2 top=273 right=322 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Legal
----- HyperTalk script -----
on mouseUp
  if visible of card field 3 then hide card field 3
  else show card field 3
end mouseUp



-- part 40 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=8 top=175 right=278 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
On mouseup
  hide card field 3
end mouseup


-- part 41 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=394 top=292 right=340 bottom=437
-- title width / last selected line: 0
-- icon id / first selected line: 1004 / 1004
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:  About...
----- HyperTalk script -----
on mouseUp
  if visible of card field 4 then hide card field 4
  else show card field 4
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=87 top=279 right=316 bottom=241
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date Calculations
----- HyperTalk script -----
on mouseUp
  go card id 14858
end mouseUp



-- part 42 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=78 top=184 right=306 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseup
  hide card field 4
end mouseup


-- part contents for card part 36
----- text -----
Click on any category in the
this page (Weights and Measures) to go to the page of that specific category.
Then click on the "Name" of the unit for which you have a value to convert and enter that value. The equivalent of this value will be calculated for each of the other available units.

-- part contents for card part 38
----- text -----
© 1990 by John Dabbas. All rights reserved.

-- part contents for card part 40
----- text -----
Weights & Measuures is a shareware product. It is not sold on store shelves or through the mail. Try it out for two weeks. If after that time you find Weights & Measuures helpful and you decide to keep it, then you must register the copy and pay your $15 shareware fee.  If you do not want to pay the fee then you must delete the program.
You may pass it on to a friend but you must not delete or alter the button "Legal" or this field.
In any case, I would appreciate hearing from you about your opinion.
Send the fee to:  (only checks; please.)

John Dabbas
17093 West Bernardo Dr., #206
San Diego, CA 92127

Site licenses can be negotiated.

-- part contents for card part 42
----- text -----
Objective:
    Weights & Measures provides a convenient
    means for converting different sorts of units
    within the same system of measurement as
    well as to other international units (US,
    Imperial and Metric).

    By entring a value for a certain unit of
    measurement, the equivalent values of all
    other available units will be calculated.

    The button and card scripts facilitate adding
    further data with ease should the user wish to
    customize the stack for his specific needs.

    Persons benefiting from this program could be:
      • Any person working with measurements.
      • Importers and Exporters.
      • Educational institutions
      • Students of mathematics and physics
      • Quantity surveyors.



-- part contents for background part 5
----- text -----






-- part contents for card part 43
----- text -----

kjfg kfg ,lgf lkjlgjh k;,lg l.kf lk;fk fgljfdgj lfdjlkfdgld gldjglkdjgk gljdl jldjgldj lgjldjmhnds l.f fjhfkjhds fk\

; klkl klj jkh jh kjhfkhkf kjhfk shfk jhfksh kfhkfhkh

hh gh ghfh hgjhf hhgf hgf hgfhgf h